#@argv=shift;
$dir ="c:/nregareports1";
if (! -d $dir ) {mkdir $dir;}

@blocks =('talbehat'); # names of dsns
#@blocks =('bar');
foreach my $block(@blocks) {
system("perl workersofapanchayat1.pl $block $dir");
=head
system("perl works_agency_wise_0809_new.pl $block $dir");
system("perl works_agency_wise_0910_new.pl $block $dir");
system("perl works_in_a_panchayat0910.pl $block $dir");
system("perl works_in_a_panchayat0809.pl $block $dir");
system("perl muster_rolls.pl $block $dir");
system("perl works_agency_wise_diff_format_0809_new.pl $block $dir");
system("perl works_agency_wise_diff_format_0910_new.pl $block $dir");
system("perl nrega_index.pl $block $dir");
system("perl abstract0910.pl $block $dir");
system("perl abstract0809.pl $block $dir");
=cut


}